Almathera Ten Pack 2: CDPD 1/Almathera Ten on Ten - Disc 2: CDPD 1.iso/pd/301-325/304/ira/ira.h

C/C++ Source or Header | 1995-03-14 | 5KB | 411 lines

UBYTE UNDOBUFFER[20];

UBYTE YearsGadSIBuff[20];
struct StringInfo YearsGadSInfo = {
    YearsGadSIBuff,
    UNDOBUFFER,
    0,
    20,
    0,
    0,0,0,0,0,
    0,
    0,
    NULL
};

SHORT BorderVectors1[] = {
    0,0,
    89,0,
    89,21,
    0,21,
    0,1
};
struct Border Border1 = {
    -2,-7,
    3,0,COMPLEMENT,
    5,
    BorderVectors1,
    NULL
};

struct Gadget YearsGad = {
    NULL,
    98,116,
    86,20,
    NULL,
    RELVERIFY+STRINGRIGHT+LONGINT,
    STRGADGET,
    (APTR)&Border1,
    NULL,
    NULL,
    NULL,
    (APTR)&YearsGadSInfo,
    NULL,
    NULL
};

UBYTE DepositGadSIBuff[20];
struct StringInfo DepositGadSInfo = {
    DepositGadSIBuff,
    UNDOBUFFER,
    0,
    20,
    0,
    0,0,0,0,0,
    0,
    0,
    NULL
};

SHORT BorderVectors2[] = {
    0,0,
    89,0,
    89,21,
    0,21,
    0,1
};
struct Border Border2 = {
    -2,-7,
    3,0,COMPLEMENT,
    5,
    BorderVectors2,
    NULL
};

struct Gadget DepositGad = {
    &YearsGad,
    98,86,
    86,20,
    NULL,
    RELVERIFY+STRINGRIGHT,
    STRGADGET,
    (APTR)&Border2,
    NULL,
    NULL,
    NULL,
    (APTR)&DepositGadSInfo,
    NULL,
    NULL
};

UBYTE InterestGadSIBuff[20];
struct StringInfo InterestGadSInfo = {
    InterestGadSIBuff,
    UNDOBUFFER,
    0,
    20,
    0,
    0,0,0,0,0,
    0,
    0,
    NULL
};

SHORT BorderVectors3[] = {
    0,0,
    89,0,
    89,21,
    0,21,
    0,1
};
struct Border Border3 = {
    -2,-7,
    3,0,COMPLEMENT,
    5,
    BorderVectors3,
    NULL
};

struct Gadget InterestGad = {
    &DepositGad,
    98,56,
    86,20,
    NULL,
    RELVERIFY+STRINGRIGHT,
    STRGADGET,
    (APTR)&Border3,
    NULL,
    NULL,
    NULL,
    (APTR)&InterestGadSInfo,
    NULL,
    NULL
};

SHORT BorderVectors4[] = {
    0,0,
    92,0,
    92,18,
    0,18,
    0,0
};
struct Border Border4 = {
    -2,-1,
    2,0,JAM1,
    5,
    BorderVectors4,
    NULL
};

struct TextAttr TOPAZ80 = {
    (STRPTR)"topaz.font",
    TOPAZ_EIGHTY,0,0
};
struct IntuiText IText1 = {
    1,0,JAM2,
    9,5,
    &TOPAZ80,
    (UBYTE *)"Calculate",
    NULL
};

struct Gadget CalcGad = {
    &InterestGad,
    53,146,
    89,17,
    NULL,
    RELVERIFY,
    BOOLGADGET,
    (APTR)&Border4,
    NULL,
    &IText1,
    NULL,
    NULL,
    NULL,
    NULL
};

UBYTE BalanceGadSIBuff[20];
struct StringInfo BalanceGadSInfo = {
    BalanceGadSIBuff,
    UNDOBUFFER,
    0,
    20,
    0,
    0,0,0,0,0,
    0,
    0,
    NULL
};

SHORT BorderVectors5[] = {
    0,0,
    89,0,
    89,21,
    0,21,
    0,1
};
struct Border Border5 = {
    -2,-7,
    3,0,COMPLEMENT,
    5,
    BorderVectors5,
    NULL
};

struct Gadget BalanceGad = {
    &CalcGad,
    98,26,
    86,20,
    NULL,
    RELVERIFY+STRINGRIGHT,
    STRGADGET,
    (APTR)&Border5,
    NULL,
    NULL,
    NULL,
    (APTR)&BalanceGadSInfo,
    NULL,
    NULL
};

#define GadgetList1 BalanceGad

struct IntuiText IText2 = {
    3,1,COMPLEMENT,
    0,0,
    NULL,
    (UBYTE *)"Quit",
    NULL
};

struct MenuItem MenuItem6 = {
    NULL,
    0,45,
    80,8,
    ITEMTEXT+ITEMENABLED+HIGHCOMP,
    0,
    (APTR)&IText2,
    NULL,
    NULL,
    NULL,
    MENUNULL
};

struct IntuiText IText3 = {
    3,1,COMPLEMENT,
    0,0,
    NULL,
    (UBYTE *)"About",
    NULL
};

struct MenuItem MenuItem5 = {
    &MenuItem6,
    0,36,
    80,8,
    ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
    0,
    (APTR)&IText3,
    NULL,
    'A',
    NULL,
    MENUNULL
};

struct IntuiText IText4 = {
    3,1,COMPLEMENT,
    0,0,
    NULL,
    (UBYTE *)"Help",
    NULL
};

struct MenuItem MenuItem4 = {
    &MenuItem5,
    0,27,
    80,8,
    ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
    0,
    (APTR)&IText4,
    NULL,
    'H',
    NULL,
    MENUNULL
};

struct IntuiText IText5 = {
    3,1,COMPLEMENT,
    0,0,
    NULL,
    (UBYTE *)"Print",
    NULL
};

struct MenuItem MenuItem3 = {
    &MenuItem4,
    0,18,
    80,8,
    ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
    0,
    (APTR)&IText5,
    NULL,
    'P',
    NULL,
    MENUNULL
};

struct IntuiText IText6 = {
    3,1,COMPLEMENT,
    0,0,
    NULL,
    (UBYTE *)"Save",
    NULL
};

struct MenuItem MenuItem2 = {
    &MenuItem3,
    0,9,
    80,8,
    ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
    0,
    (APTR)&IText6,
    NULL,
    'S',
    NULL,
    MENUNULL
};

struct IntuiText IText7 = {
    3,1,COMPLEMENT,
    0,0,
    NULL,
    (UBYTE *)"Load",
    NULL
};

struct MenuItem MenuItem1 = {
    &MenuItem2,
    0,0,
    80,8,
    ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
    0,
    (APTR)&IText7,
    NULL,
    'L',
    NULL,
    MENUNULL
};

struct Menu Menu1 = {
    NULL,
    0,0,
    75,0,
    MENUENABLED,
    "Project",
    &MenuItem1
};

#define MenuList1 Menu1

struct IntuiText IText11 = {
    3,0,JAM2,
    16,117,
    NULL,
    (UBYTE *)"Years",
    NULL
};

struct IntuiText IText10 = {
    3,0,JAM2,
    16,88,
    NULL,
    (UBYTE *)"Deposit",
    &IText11
};

struct IntuiText IText9 = {
    3,0,JAM2,
    16,57,
    NULL,
    (UBYTE *)"Interest",
    &IText10
};

struct IntuiText IText8 = {
    3,0,JAM2,
    16,25,
    NULL,
    (UBYTE *)"Balance",
    &IText9
};

#define IntuiTextList1 IText8

struct NewWindow NewWindowStructure1 = {
    71,19,
    202,173,
    0,1,
    GADGETUP+MENUPICK+CLOSEWINDOW,
    WINDOWDRAG+WINDOWDEPTH+WINDOWCLOSE,
    &BalanceGad,
    NULL,
    (UBYTE *)"IRA Calculator",
    NULL,
    NULL,
    5,5,
    640,200,
    WBENCHSCREEN
};